home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 June / Ahoy_Magazine_88-06_1988_Double_L.d64 / swap speed (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  347b  |  12 lines
  1. 100 rem* swap speed by shawn k. smith
  2. 110 s=5120:rem for c-128 from ahoy!
  3. 120 ford=stos+29:ready:poked,y:next
  4. 130 a=int((s+11)/256):pokes+6,a
  5. 140 pokes+1,s+11-256*a
  6. 145 poked,peek(824):poked+1,peek(825)
  7. 150 sys(s):print"swap speed ready.":end
  8. 160 data 169,011,141,056,003,169,020,141
  9. 170 data 057,003,096,201,088,208,014,036
  10. 180 data 215,048,005,032,182,119,208,003
  11. 190 data 032,199,119,169,088,076
  12.